﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>
<%
if sid="Null" then
Response.Redirect "/login.asp?sid="&sidd&"&url=/game/fish/index.asp"
else
select case v
case "0"
we0="<br/>"
%>
<card id="main" title="钓鱼-休闲"><p align="<%=qingtian.px%>">
<%
case "1"
zi="<span style=""color:#FF5500"">"
we="<div class=""footer"">"
sou="<div class=""block4"">"
dao="<div class=""navi"">"
we0="</div>"
%>
<title>钓鱼-休闲</title>
</head>
<body>
<!--#include virtual="/css.inc"-->
<%
End Select
%>
<!--#include file="conn.inc"-->
<%=dao%><img src="fishing-logo.gif" alt="钓鱼-图"/><br/>==钓鱼-休闲==<%=we0%><%=we%>
<%
dim act,tip,rs,r2,r1
Act=Request("act")
Tip=""
rs.Open "select * from basis where UserID="&qingtian.nid,cn,1,1
If rs.bof and rs.eof Then 
	Set r2=CreateObject("adodb.recordset")
	r2.open "select * from basis",cn,1,3
	r2.addnew
	r2("UserID")=qingtian.nid
	r2.update
	r2.close
	Set r2=nothing
End If
rs.Close
	If Act="buy" Then
		
			If conn.execute("select money from [qingtian_user] where sid='"&qingtian.Formatsid(sid)&"'")("money")<100 Then 
                        Tip="你的"&qingtian.bi&"不够哦！<br/>"
                        else
                        cn.Execute("update basis set bait=bait+5 where UserID="&qingtian.nid)
                        qingtian.payy(-100)
                        Tip="购买成功！<br/>"
                        end if

	End If
rs.Open "select bait,fish from basis where UserID="&qingtian.nid,cn,1,1
%>
Hi~ <%=session("username")%>(<%=conn.execute("select money from [qingtian_user] where sid='"&qingtian.Formatsid(sid)&"'")("money")%><%=qingtian.bi%>)<br/>
你现有鱼饵,<%=rs("bait")%>只。<br/><%=Tip%>
<a href="?act=buy&amp;sid=<%=sidd%>">买鱼饵(5只/100金币)</a><br/>
你共钓到<%=rs("fish")%>只鱼。<br/>
 <a href="start.asp?sid=<%=sid%>">俺要钓鱼</a>
<%=we0%><%=sou%>
----------<%=we0%><%=dao%>
<!--#INCLUDE FILE="free.inc"-->
<%
Response.Write("<a href='/index.asp?sid=" & sidd & "'>网站首页</a>")
end if
end function
%>